COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 FREE ACS	AR1,T,TT
C00005 ENDMK
C⊗;
;;; FREE ACS	AR1,T,TT
;;; Need to refer to LISP[NEW,LSP], pages 368, and 509
;;; Labels PDLOV and INTRPT. Simulate what happens at INTRPT and
;;; jump to PDLOV so that PDLOV can return well. Will need to use
;;; INTPDL

PATCH:  [2,,2]
66215:	<RET ADDR>
	MOVE AR1,INTPDL	MOVE 4,2116
	JFCL         	JFCL		;INTPDL=2116
	ADD AR1,[2,,2]	ADD 4,66214
	PUSH AR1,IMASK	PUSH 4,201
	PUSH AR1,0	PUSH 4,0
	PUSH AR1,PATCH	PUSH 4,66215
	JFCL          	JFCL
	PUSH AR1,D	PUSH 4,10
	PUSH AR1,R	PUSH 4,11
	PUSH AR1,F	PUSH 4,12
	MOVEM AR1,INTPDLMOVEM 4,2116
	JRST PDLOV	JRST 44713
66232:	<RET>
 	MOVE T,INTPDL	MOVE 6,2116
	JFCL          	JFCL
	ADD T,[2,,2]	ADD 6,66214
	PUSH T,IMASK	PUSH 6,201
	PUSH 6,0	PUSH 6,0
	PUSH T,<RET>	PUSH 6,66232
        JFCL          	JFCL
	PUSH T,D	PUSH 6,10
	PUSH T,R	PUSH 6,11
	PUSH T,F	PUSH 6,12
	MOVEM T,INTPDL  MOVEM 6,2116
	JRST PDLOV	JRST 44713
66247:
	MOVE TT,INTPDL	MOVE 7,2116
  	JFCL          	JFCL
	ADD TT,[2,,2]	ADD 7,66214
	PUSH TT,IMASK	PUSH 7,201
	PUSH TT,0	PUSH 7,0
	PUSH TT,<RET>	PUSH 7,66247
	JFCL         	JFCL
	PUSH TT,D	PUSH 7,10
	PUSH TT,R	PUSH 7,11
	PUSH TT,F	PUSH 7,12
	MOVEM TT,INTPDL MOVEM 7,2116
	JRST PDLOV	JRST 44713

UIBRK:	?
	?
	?
	?
13413:	HRRZ 16,1(10)
	JSR 66215
	HLRZ 15,1(10)
	JSR 66215
	HRRZI 14,10(10)
	JRST 13435

UNWPR1:	?
	?
	?
	?
	?
13457:	HRRZ 14,10
	JSR 66232
	JRST 13465

13520:	HRRZI 16,(10)	;UNWNCM-?
	PUSH 14,7
	JSR 66247
	POP 14,7
	JRST 13530

FRP3QA: ?
21243:	HRRZI 14,1(12)
	JSR 66247
	HLRZ 15,-2(14)
	JSR 66247
	HRRZ 16,-2(14)
	JRST 21265